|
|
 |
|
|
|
|
152: Public Function getRecordCount() As Variant
153: End Function
154:
155: '##ModelId=352AB4CD0366
156: Public Function setColumn(argCol As rdoColumn) As Variant
157: End Function
158:
159: '##ModelId=352AB4CE00FA
160: Public Function openTable() As Variant
161: End Function
162:
163: '##ModelId=352AB4CE01D6
164: Public Function rollbackDBTrans() As Variant
165: End Function
166:
167: '##ModelId=352AB4CE02EE
168: Public Function beginDBTrans() As Variant
169: End Function
170:
171: '##ModelId=352AB4CE03CA
172: Public Sub commitDBTrans()
173: End Sub
174:
175: '##ModelId=352AB4CF00BE
176: Public Sub closeDBConnection(Optional argConnection) ' As Variant
177: ' Close the connection.
178: mvarpDBConnection.Close
179: End Sub
180:
181: '##ModelId=352AB4CF0276
182: Public Sub openConnection(argConnStr As String)
183: 'openConnectionNoDSN argConnStr
184: openConnectionWithDSN argConnStr
185: End Sub
186:
187:
188: '##ModelId=352AB4D0000A 'Opens connection without DSN
189: Public Sub openConnectionNoDSN(argConnStr As String) 'As Variant
190: Dim sConnStr As String
191: On Error GoTo openConnectionErr
192: Set mvarpDBConnection = New ADODB.Connection
193: sConnStr = driver= & mvarDefaultDriverName & ; & argConnStr
194:
195: With mvarpDBConnection
196: ' Open a connection using an ODBC DSN.
197: 'cnn.ConnectionString = driver={SQL Server}; & server=rgreennt;uid=sa;pwd=;database=pubs
198: 'Set the provider property to the OLE DB Provider for ODBC.
|
|
|
|
|
|